VERSION 4.00 Begin VB.Form frm3DContainers BorderStyle = 3 'Fixed Dialog Caption = "VBMax 3D Effects Demo - Containers" ClientHeight = 5265 ClientLeft = 1050 ClientTop = 1665 ClientWidth = 5565 Height = 5670 Icon = "3DContainers.frx":0000 Left = 990 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5265 ScaleWidth = 5565 ShowInTaskbar = 0 'False Top = 1320 Width = 5685 Begin VB.CommandButton cmdClose Cancel = -1 'True Caption = "Close" Height = 360 Left = 4500 TabIndex = 40 Top = 300 Width = 900 End Begin VB.Frame Frame1 Caption = "Frames" Height = 1215 Left = 120 TabIndex = 0 Top = 3960 Width = 5295 Begin VB.PictureBox picLabelContainer BorderStyle = 0 'None Height = 915 Left = 120 ScaleHeight = 915 ScaleWidth = 5115 TabIndex = 37 Top = 240 Width = 5115 Begin VB.Label Label1 Caption = "a PictureBox control inside the Frame." BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 300 Index = 1 Left = 0 TabIndex = 39 Top = 480 Width = 4590 End Begin VB.Label Label1 Caption = "These label controls have been placed on" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 300 Index = 0 Left = 0 TabIndex = 38 Top = 60 Width = 4995 End End End Begin VB.PictureBox picContainer Height = 2115 Index = 0 Left = 180 ScaleHeight = 2055 ScaleWidth = 4095 TabIndex = 1 Top = 1680 Width = 4155 Begin VB.TextBox txtZip Height = 285 Index = 0 Left = 2700 TabIndex = 12 Top = 1620 Width = 1275 End Begin VB.TextBox txtState Height = 285 Index = 0 Left = 720 TabIndex = 10 Top = 1620 Width = 615 End Begin VB.TextBox txtCity Height = 285 Index = 0 Left = 720 TabIndex = 8 Top = 1200 Width = 3255 End Begin VB.TextBox txtStreet Height = 285 Index = 0 Left = 720 TabIndex = 6 Top = 780 Width = 3255 End Begin VB.TextBox txtName Height = 285 Index = 0 Left = 720 TabIndex = 4 Top = 360 Width = 3255 End Begin VB.Label lblZip Caption = "Zip:" ForeColor = &H00800000& Height = 195 Index = 0 Left = 2340 TabIndex = 11 Top = 1650 Width = 375 End Begin VB.Label lblState Caption = "State:" ForeColor = &H00800000& Height = 195 Index = 0 Left = 180 TabIndex = 9 Top = 1650 Width = 555 End Begin VB.Label lblCity Caption = "City:" ForeColor = &H00800000& Height = 195 Index = 0 Left = 180 TabIndex = 7 Top = 1230 Width = 555 End Begin VB.Label lblStreet Caption = "Street:" ForeColor = &H00800000& Height = 195 Index = 0 Left = 180 TabIndex = 5 Top = 810 Width = 555 End Begin VB.Label lblName Caption = "Name:" ForeColor = &H00800000& Height = 195 Index = 0 Left = 180 TabIndex = 3 Top = 405 Width = 555 End Begin VB.Label lblCaption BackColor = &H8000000D& Caption = "Click Me" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 240 Index = 0 Left = 0 TabIndex = 2 Top = 0 Width = 4335 End End Begin VB.PictureBox picContainer Height = 2115 Index = 1 Left = 720 ScaleHeight = 2055 ScaleWidth = 4095 TabIndex = 13 Top = 1380 Width = 4155 Begin VB.TextBox txtName BorderStyle = 0 'None Height = 285 Index = 1 Left = 720 TabIndex = 18 Top = 360 Width = 3255 End Begin VB.TextBox txtStreet BorderStyle = 0 'None Height = 285 Index = 1 Left = 720 TabIndex = 17 Top = 780 Width = 3255 End Begin VB.TextBox txtCity BorderStyle = 0 'None Height = 285 Index = 1 Left = 720 TabIndex = 16 Top = 1200 Width = 3255 End Begin VB.TextBox txtState BorderStyle = 0 'None Height = 285 Index = 1 Left = 720 TabIndex = 15 Top = 1620 Width = 615 End Begin VB.TextBox txtZip BorderStyle = 0 'None Height = 285 Index = 1 Left = 2700 TabIndex = 14 Top = 1620 Width = 1275 End Begin VB.Label lblCaption BackColor = &H8000000D& Caption = "Click Me" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 240 Index = 1 Left = 0 TabIndex = 24 Top = 0 Width = 4335 End Begin VB.Label lblName Caption = "Name:" ForeColor = &H000000C0& Height = 195 Index = 1 Left = 120 TabIndex = 23 Top = 375 Width = 495 End Begin VB.Label lblStreet Caption = "Street:" ForeColor = &H000000C0& Height = 195 Index = 1 Left = 120 TabIndex = 22 Top = 795 Width = 495 End Begin VB.Label lblCity Caption = "City:" ForeColor = &H000000C0& Height = 195 Index = 1 Left = 120 TabIndex = 21 Top = 1215 Width = 495 End Begin VB.Label lblState Caption = "State:" ForeColor = &H000000C0& Height = 195 Index = 1 Left = 120 TabIndex = 20 Top = 1635 Width = 495 End Begin VB.Label lblZip Caption = "Zip:" ForeColor = &H000000C0& Height = 195 Index = 1 Left = 2280 TabIndex = 19 Top = 1635 Width = 315 End End Begin VB.PictureBox picContainer Height = 2115 Index = 2 Left = 1260 ScaleHeight = 2055 ScaleWidth = 4095 TabIndex = 25 Top = 1080 Width = 4155 Begin VB.TextBox txtName Height = 285 Index = 2 Left = 840 TabIndex = 30 Top = 360 Width = 3135 End Begin VB.TextBox txtStreet Height = 285 Index = 2 Left = 840 TabIndex = 29 Top = 780 Width = 3135 End Begin VB.TextBox txtCity Height = 285 Index = 2 Left = 840 TabIndex = 28 Top = 1200 Width = 3135 End Begin VB.TextBox txtState Height = 285 Index = 2 Left = 840 TabIndex = 27 Top = 1620 Width = 615 End Begin VB.TextBox txtZip Height = 285 Index = 2 Left = 2820 TabIndex = 26 Top = 1620 Width = 1155 End Begin VB.Label lblCaption BackColor = &H8000000D& Caption = "Click Me" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 240 Index = 2 Left = 0 TabIndex = 36 Top = 0 Width = 4335 End Begin VB.Label lblName Alignment = 2 'Center BackColor = &H80000005& Caption = "Name:" Height = 195 Index = 2 Left = 120 TabIndex = 35 Top = 375 Width = 615 End Begin VB.Label lblStreet Alignment = 2 'Center BackColor = &H80000005& Caption = "Street:" Height = 195 Index = 2 Left = 120 TabIndex = 34 Top = 795 Width = 615 End Begin VB.Label lblCity Alignment = 2 'Center BackColor = &H80000005& Caption = "City:" Height = 195 Index = 2 Left = 120 TabIndex = 33 Top = 1215 Width = 615 End Begin VB.Label lblState Alignment = 2 'Center BackColor = &H80000005& Caption = "State:" Height = 195 Index = 2 Left = 120 TabIndex = 32 Top = 1635 Width = 615 End Begin VB.Label lblZip Alignment = 2 'Center BackColor = &H80000005& Caption = "Zip:" Height = 195 Index = 2 Left = 2280 TabIndex = 31 Top = 1635 Width = 435 End End Begin VB.Label Label2 Caption = $"3DContainers.frx":000C Height = 975 Left = 180 TabIndex = 41 Top = 180 Width = 3975 End Attribute VB_Name = "frm3DContainers" Attribute VB_Creatable = False Attribute VB_Exposed = False Option Explicit Dim mo3D As New C3D Private Sub Form_Load() CenterForm Me With mo3D Set .Container = picContainer(0) .Style = gnFLOATING .Caption lblName(0), gnUSE_CONTROL_FONT .Caption lblStreet(0), gnUSE_CONTROL_FONT .Caption lblCity(0), gnUSE_CONTROL_FONT .Caption lblState(0), gnUSE_CONTROL_FONT .Caption lblZip(0), gnUSE_CONTROL_FONT .DropShadow txtName(0) .DropShadow txtStreet(0) .DropShadow txtCity(0) .DropShadow txtState(0) .DropShadow txtZip(0) Set .Container = picContainer(1) .Style = gnRAISED .Caption lblName(1), gnUSE_CONTROL_FONT .Caption lblStreet(1), gnUSE_CONTROL_FONT .Caption lblCity(1), gnUSE_CONTROL_FONT .Caption lblState(1), gnUSE_CONTROL_FONT .Caption lblZip(1), gnUSE_CONTROL_FONT .Border txtName(1) .Border txtStreet(1) .Border txtCity(1) .Border txtState(1) .Border txtZip(1) Set .Container = picContainer(2) .DropShadow lblName(2) .DropShadow lblStreet(2) .DropShadow lblCity(2) .DropShadow lblState(2) .DropShadow lblZip(2) Set .Container = picLabelContainer .Style = gnRAISED .Caption Label1(0), gnUSE_CONTROL_FONT .Caption Label1(1), gnUSE_CONTROL_FONT End With End Sub Private Sub Form_Unload(Cancel As Integer) Set mo3D = Nothing Set frm3DFrames = Nothing End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub lblCaption_Click(Index As Integer) picContainer(Index).ZOrder End Sub Private Sub picContainer_Click(Index As Integer) picContainer(Index).ZOrder End Sub